00100		SUBROUTINE ADUP(X)
00200		DIMENSION A(20)
00300		COMMON K,ACC,IOUT
00400		IF(ACC.EQ.0)GO TO 4
00500		X=0
00600	5	ACCEPT 3,A
00610		REREAD 6,B,C
00620		IF(B.NE.'B')GO TO 7
00630		X=B
00650		RETURN
00660	7	IF(B.NE.'S')GO TO 3
00670		X=-999
00675		IF(C.EQ.'E')X=B
00680		RETURN
00700	3	FORMAT(20F)
00800		DO 1 J=1,20
00900		IF(A(J).EQ.-1)GO TO 5
01000	C  TYPE -1 IN INPUT STRING TO ALLOW FURTHER LINES.
01100	1	X=X+A(J)
01200	CC4	IF(A(1).NE.-99.AND.A(1).NE.-999)WRITE(IOUT,2)X
01210	4	WRITE(IOUT,2)X
01300	C  B AND BB ARE FOR BACKUPS.  S=SKIP.
01400	2	FORMAT('+',F12.2/)
01410	6	FORMAT(2A1)
01500		END
01600	
01700		SUBROUTINE TYP(J,I)
01800		COMMON K,ACC,IOUT
01900		K=J
02000		WRITE(IOUT,10)J,I
02100	10	FORMAT(' LINE ',I2,A1,$)
02200		END
02300		SUBROUTINE STDED(X)
02400		END
02500		SUBROUTINE SMALL(X)
02600		END